<%
ComeUrl=lcase(trim(request.ServerVariables("SERVER_NAME")))
response.Write(ComeUrl)
%>